home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Developers / ICProgKit1.0 / Examples / PExample.p < prev    next >
Text File  |  1994-03-27  |  1KB  |  54 lines
  1. program PExample;
  2.  
  3.     uses
  4. {$ifc undefined THINK_Pascal}
  5.         Types, Files, Packages, Aliases, 
  6. {$endc}
  7.         ICTypes, ICAPI, ICKeys;
  8.  
  9.     var
  10.         inst: ICInstance;
  11.  
  12.     procedure DumpPrefs;
  13.         var
  14.             count: longint;
  15.             i: longint;
  16.             key: Str255;
  17.     begin
  18.         writeln('ICCountPref: ', ICCountPref(inst, count) : 1);
  19.         for i := 1 to count do begin
  20.             write('  ICGetIndPref: ', ICGetIndPref(inst, i, key) : 1, ' - ');
  21.             writeln(key);
  22.         end; (* for *)
  23.     end; (* DumpPrefs *)
  24.  
  25.     var
  26.         folder_spec: ICDirSpecArray;
  27.         email_address: Str255;
  28.         attr: longint;
  29.         size: longint;
  30.         seed: longint;
  31.         mappings: handle;
  32.         entry: ICMapEntry;
  33. begin
  34. {$ifc not undefined THINK_Pascal}
  35.     ShowText;
  36. {$endc}
  37.     writeln('ICStart: ', ICStart(inst, 'CREA') : 1);        (* tell it your application creator *)
  38.     folder_spec[0].vRefNum := -1;                                (* search for prefs in root of the system *)
  39.     folder_spec[0].dirID := 2;                                        (* volume, obviously you'd use other things *)
  40.     writeln('ICFindConfigFile: ', ICFindConfigFile(inst, 1, @folder_spec) : 1);
  41.  
  42.     writeln('ICBegin: ', ICBegin(inst, icReadWritePerm) : 1);
  43.     size := sizeof(email_address);
  44.     writeln('ICGetPref: ', ICGetPref(inst, kICEmail, attr, @email_address, size) : 1);
  45.     writeln('Your Email address is ', email_address);
  46.  
  47.     DumpPrefs;
  48.     writeln('ICEnd: ', ICEnd(inst) : 1);
  49.  
  50.     writeln('ICGetSeed: ', ICGetSeed(inst, seed) : 1, ' = ', seed : 1);
  51.     (* now monitor this seed to see if any preferences have changed *)
  52.  
  53.     writeln('ICStop: ', ICStop(inst));
  54. end. (* PExample *)